home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet internetowy / Rozne / HTTrack 3.40-2 / httrack-3.40-2.exe / {app} / src / htsnostatic.c < prev    next >
C/C++ Source or Header  |  2004-12-11  |  6KB  |  265 lines
  1. /* ------------------------------------------------------------ */
  2. /*
  3. HTTrack Website Copier, Offline Browser for Windows and Unix
  4. Copyright (C) Xavier Roche and other contributors
  5.  
  6. This program is free software; you can redistribute it and/or
  7. modify it under the terms of the GNU General Public License
  8. as published by the Free Software Foundation; either version 2
  9. of the License, or any later version.
  10.  
  11. This program is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with this program; if not, write to the Free Software
  18. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  19.  
  20.  
  21. Important notes:
  22.  
  23. - We hereby ask people using this source NOT to use it in purpose of grabbing
  24. emails addresses, or collecting any other private information on persons.
  25. This would disgrace our work, and spoil the many hours we spent on it.
  26.  
  27.  
  28. Please visit our Website: http://www.httrack.com
  29. */
  30.  
  31.  
  32. /* ------------------------------------------------------------ */
  33. /* File: htsnostatic.c subroutines:                             */
  34. /*       thread-safe routines for reentrancy                    */
  35. /* Author: Xavier Roche                                         */
  36. /* ------------------------------------------------------------ */
  37.  
  38. /* Internal engine bytecode */
  39. #define HTS_INTERNAL_BYTECODE
  40.  
  41. #include "htsnostatic.h"
  42.  
  43. #include "htsbase.h"
  44. #include "htshash.h"
  45. #include "htsinthash.h"
  46.  
  47. typedef struct hts_varhash {
  48.   /*
  49.   inthash values;
  50.   */
  51.   inthash blocks;
  52. } hts_varhash;
  53.  
  54. #if USE_BEGINTHREAD
  55. static PTHREAD_LOCK_TYPE hts_static_Mutex;
  56. #endif
  57. static int hts_static_Mutex_init=0;
  58. #if HTS_WIN
  59. #else
  60. static PTHREAD_KEY_TYPE hts_static_key;
  61. #endif
  62.  
  63. int hts_initvar() {
  64.   if (!hts_static_Mutex_init) {
  65.     /* Init done */
  66.     hts_static_Mutex_init=1;
  67. #if USE_BEGINTHREAD
  68.     /* Init mutex */
  69.     htsSetLock(&hts_static_Mutex, -999);
  70.     
  71. #if HTS_WIN
  72. #else
  73.     /* Init hash */
  74.     PTHREAD_KEY_CREATE(&hts_static_key, hts_destroyvar);
  75. #endif
  76. #endif
  77.   }
  78.  
  79.   /* Set specific thread value */
  80. #if USE_BEGINTHREAD
  81. #if HTS_WIN
  82. #else
  83.   {
  84.     void* thread_val;
  85.     hts_varhash* hts_static_hash = (hts_varhash*) malloc(sizeof(hts_static_hash));
  86.     if (!hts_static_hash)
  87.       return 0;
  88.       /*
  89.       hts_static_hash->values = inthash_new(HTS_VAR_MAIN_HASH);
  90.       if (!hts_static_hash->values)
  91.       return 0;
  92.     */
  93.     hts_static_hash->blocks = inthash_new(HTS_VAR_MAIN_HASH);
  94.     if (!hts_static_hash->blocks)
  95.       return 0;
  96.     /* inthash_value_is_malloc(hts_static_hash->values, 0);  */ /* Regular values */
  97.     inthash_value_is_malloc(hts_static_hash->blocks, 1);     /* We'll have to free them upon term! */
  98.     inthash_value_set_free_handler(hts_static_hash->blocks, hts_destroyvar_key);  /* free handler */
  99.     thread_val = (void*) hts_static_hash;
  100.     
  101.     PTHREAD_KEY_SET(hts_static_key, thread_val, inthash);
  102.   }
  103. #endif
  104. #endif
  105.  
  106.   return 1;
  107. }
  108.  
  109. /*
  110.   hash table free handler to free all keys
  111. */
  112. void hts_destroyvar_key(void* adr) {
  113. #if HTS_WIN
  114. #else
  115.   hts_NostaticComplexKey* cKey = (hts_NostaticComplexKey*) adr;
  116.   if (cKey) {
  117.     void* block_address = NULL;
  118.     PTHREAD_KEY_GET(cKey->localKey, &block_address, void*);
  119.     /* Free block */
  120.     if (block_address) {
  121.       free(block_address);
  122.     }
  123.     cKey->localInit = 0;
  124.   }
  125. #endif
  126. }
  127.  
  128. void hts_destroyvar(void* ptrkey) {
  129. #if HTS_WIN
  130. #else
  131.   if (ptrkey) {
  132.     hts_varhash* hashtables = (hts_varhash*) ptrkey;
  133.     PTHREAD_KEY_SET(hts_static_key, NULL, inthash);  /* unregister */
  134.  
  135.     /* Destroy has table */
  136.     inthash_delete(&(hashtables->blocks));  /* will magically call hts_destroyvar_key(), too */
  137.     /*
  138.     inthash_delete(&(hashtables->values));
  139.     */
  140.     free(ptrkey);
  141.   }
  142. #endif
  143. }
  144.  
  145. /*
  146.   destroy all key values (for the current thread)
  147. */
  148. int hts_freevar() {
  149. #if HTS_WIN
  150. #if 0
  151.   void* thread_val = NULL;
  152.   PTHREAD_KEY_GET(hts_static_key, &thread_val, inthash);
  153.   hts_destroyvar(thread_val);
  154.   PTHREAD_KEY_SET(hts_static_key, NULL, inthash);  /* unregister */
  155.   /*
  156.   PTHREAD_KEY_DELETE(hts_static_key); NO
  157.   */
  158. #endif
  159. #endif
  160.   return 1;
  161. }
  162.  
  163. HTSEXT_API int hts_resetvar() {
  164.   int r;
  165.   hts_lockvar();
  166.   {
  167.     hts_freevar();
  168.     r = hts_initvar();
  169.   }
  170.   hts_unlockvar();
  171.   return r;
  172. }
  173.  
  174. int hts_maylockvar() {
  175.   return hts_static_Mutex_init;
  176. }
  177.  
  178. int hts_lockvar() {
  179. #if USE_BEGINTHREAD
  180.   htsSetLock(&hts_static_Mutex, 1);
  181. #endif
  182.   return 1;
  183. }
  184.  
  185. int hts_unlockvar() {
  186. #if USE_BEGINTHREAD
  187.   htsSetLock(&hts_static_Mutex, 0);
  188. #endif
  189.   return 1;
  190. }
  191.  
  192. int hts_setvar(char* name, long int value) {
  193.   return hts_setextvar(name, (long int)value, 0);
  194. }
  195.  
  196. int hts_setblkvar(char* name, void* value) {
  197.   return hts_setextvar(name, (long int)value, 1);
  198. }
  199.  
  200. int hts_setextvar(char* name, long int value, int flag) {
  201. #if HTS_WIN
  202. #else
  203.   void* thread_val = NULL;
  204.   hts_varhash* hashtables;
  205.   
  206.   /*
  207.   hts_lockvar();   // NO - MUST be protected by caller
  208.   {
  209.   */
  210.   PTHREAD_KEY_GET(hts_static_key, &thread_val, inthash);
  211.   hashtables = (hts_varhash*) thread_val;
  212.   if (hashtables) { // XXc XXC hack for win version
  213.     inthash_write(hashtables->blocks, name, value);
  214.   }
  215. #endif
  216.   
  217.   return 1;
  218. }
  219.  
  220.  
  221. int hts_getvar(char* name, long int* ptrvalue) {
  222.   return hts_getextvar(name, (long int*)ptrvalue, 0);
  223. }
  224.  
  225. int hts_getblkvar(char* name, void** ptrvalue) {
  226.   return hts_getextvar(name, (long int*)ptrvalue, 1);
  227. }
  228.  
  229. int hts_getextvar(char* name, long int* ptrvalue, int flag) {
  230. #if HTS_WIN
  231. #else
  232.   void* thread_val = NULL;
  233.   hts_varhash* hashtables;
  234.   
  235.   hts_lockvar();
  236.   {
  237.     PTHREAD_KEY_GET(hts_static_key, &thread_val, inthash);
  238.     hashtables = (hts_varhash*) thread_val;
  239.     /*  if (flag) {
  240.     */
  241.     inthash_read(hashtables->blocks, name, ptrvalue);
  242.     /*
  243.     } else {
  244.     inthash_read(hashtables->values, name, ptrvalue);
  245.     }
  246.     */
  247.   }
  248.   hts_unlockvar();
  249. #endif
  250.   
  251.   return 1;
  252. }
  253.  
  254. long int hts_directgetvar(char* name) {
  255.   long int value=0;
  256.   hts_getvar(name, &value);
  257.   return value;
  258. }
  259.  
  260. void* hts_directgetblkvar(char* name) {
  261.   void* value=NULL;
  262.   hts_getblkvar(name, &value);
  263.   return value;
  264. }
  265.